home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / languages / pcq_incl3v1.lha / Hardware / Custom.i < prev    next >
Encoding:
Text File  |  1994-04-15  |  5.7 KB  |  163 lines
  1. {
  2.         Custom.i for PCQ Pascal
  3. }
  4.  
  5. Type
  6.  
  7.     AudChannel = record
  8.         ac_ptr          : Address;      { ptr to start of waveform data }
  9.         ac_len          : Short;        { length of waveform in words }
  10.         ac_per          : Short;        { sample period }
  11.         ac_vol          : Short;        { volume }
  12.         ac_dat          : Short;        { sample pair }
  13.         ac_pad          : Array [0..1] of Short;        { unused }
  14.     end;
  15.     AudChannelPtr = ^AudChannel;
  16.  
  17.     SpriteDef = record
  18.         pos             : Short;
  19.         ctl             : Short;
  20.         dataa           : Short;
  21.         datab           : Short;
  22.     end;
  23.     SpriteDefPtr = ^SpriteDef;
  24.  
  25.     Custom = record
  26.         bltddat         : Short;
  27.         dmaconr         : Short;
  28.         vposr           : Short;
  29.         vhposr          : Short;
  30.         dskdatr         : Short;
  31.         joy0dat         : Short;
  32.         joy1dat         : Short;
  33.         clxdat          : Short;
  34.         adkconr         : Short;
  35.         pot0dat         : Short;
  36.         pot1dat         : Short;
  37.         potinp          : Short;
  38.         serdatr         : Short;
  39.         dskbytr         : Short;
  40.         intenar         : Short;
  41.         intreqr         : Short;
  42.         dskpt           : Address;
  43.         dsklen          : Short;
  44.         dskdat          : Short;
  45.         refptr          : Short;
  46.         vposw           : Short;
  47.         vhposw          : Short;
  48.         copcon          : Short;
  49.         serdat          : Short;
  50.         serper          : Short;
  51.         potgo           : Short;
  52.         joytest         : Short;
  53.         strequ          : Short;
  54.         strvbl          : Short;
  55.         strhor          : Short;
  56.         strlong         : Short;
  57.         bltcon0         : Short;
  58.         bltcon1         : Short;
  59.         bltafwm         : Short;
  60.         bltalwm         : Short;
  61.         bltcpt          : Address;
  62.         bltbpt          : Address;
  63.         bltapt          : Address;
  64.         bltdpt          : Address;
  65.         bltsize         : Short;
  66.         pad2d           : Array [0..2] of Short;
  67.         bltcmod         : Short;
  68.         bltbmod         : Short;
  69.         bltamod         : Short;
  70.         bltdmod         : Short;
  71.         pad34           : Array [0..3] of Short;
  72.         bltcdat         : Short;
  73.         bltbdat         : Short;
  74.         bltadat         : Short;
  75.         pad3b           : Array [0..3] of Short;
  76.         dsksync         : Short;
  77.         cop1lc          : Integer;
  78.         cop2lc          : Integer;
  79.         copjmp1         : Short;
  80.         copjmp2         : Short;
  81.         copins          : Short;
  82.         diwstrt         : Short;
  83.         diwstop         : Short;
  84.         ddfstrt         : Short;
  85.         ddfstop         : Short;
  86.         dmacon          : Short;
  87.         clxcon          : Short;
  88.         intena          : Short;
  89.         intreq          : Short;
  90.         adkcon          : Short;
  91.         aud             : Array [0..3] of AudChannel;
  92.         bplpt           : Array [0..5] of Address;
  93.         pad7c           : Array [0..3] of Short;
  94.         bplcon0         : Short;
  95.         bplcon1         : Short;
  96.         bplcon2         : Short;
  97.         pad83           : Short;
  98.         bpl1mod         : Short;
  99.         bpl2mod         : Short;
  100.         pad86           : Array [0..1] of Short;
  101.         bpldat          : Array [0..5] of Short;
  102.         pad8e           : Array [0..1] of Short;
  103.         sprpt           : Array [0..7] of Address;
  104.         spr             : Array [0..7] of SpriteDef;
  105.         color           : Array [0..31] of Short;
  106.         htotal          : Short;
  107.         hsstop          : Short;
  108.         hbstrt          : Short;
  109.         hbstop          : Short;
  110.         vtotal          : Short;
  111.         vsstop          : Short;
  112.         vbstrt          : Short;
  113.         vbstop          : Short;
  114.         sprhstrt        : Short;
  115.         sprhstop        : Short;
  116.         bplhstrt        : Short;
  117.         bplhstop        : Short;
  118.         hhposw          : Short;
  119.         hhposr          : Short;
  120.         beamcon0        : Short;
  121.         hsstrt          : Short;
  122.         vsstrt          : Short;
  123.         hcenter         : Short;
  124.         diwhigh         : Short;
  125.     end;
  126.     CustomPtr = ^Custom;
  127.  
  128. CONST
  129. {    defines for beamcon register }
  130.   VARVBLANK     =  $1000;  {    Variable vertical blank enable }
  131.   LOLDIS        =  $0800;  {    long line disable }
  132.   CSCBLANKEN    =  $0400;  {    redirect composite sync }
  133.   VARVSYNC      =  $0200;  {    Variable vertical sync enable }
  134.   VARHSYNC      =  $0100;  {    Variable horizontal sync enable }
  135.   VARBEAM       =  $0080;  {    variable beam counter enable }
  136.   DISPLAYDUAL   =  $0040;  {    use UHRES pointer AND standard pointers }
  137.   DISPLAYPAL    =  $0020;  {    set decodes to generate PAL display }
  138.   VARCSYNC      =  $0010;  {    Variable composite sync enable }
  139.   CSBLANK       =  $0008;  {    Composite blank out to CSY* pin }
  140.   CSYNCTRUE     =  $0004;  {    composite sync TRUE signal }
  141.   VSYNCTRUE     =  $0002;  {    vertical sync TRUE }
  142.   HSYNCTRUE     =  $0001;  {    horizontal sync TRUE }
  143.  
  144. {    new defines for bplcon0 }
  145.   USE_BPLCON3   =  1;
  146.  
  147. {    new defines for bplcon2 }
  148.   BPLCON2_ZDCTEN        =  1024; {    colormapped genlock bit }
  149.   BPLCON2_ZDBPEN        =  2048; {    use bitplane as genlock bits }
  150.   BPLCON2_ZDBPSEL0      =  4096; {    three bits to select one }
  151.   BPLCON2_ZDBPSEL1      =  8192; {    of 8 bitplanes in }
  152.   BPLCON2_ZDBPSEL2      =  16384; {    ZDBPEN genlock mode }
  153.  
  154. {    defines for bplcon3 register }
  155.   BPLCON3_EXTBLNKEN     =  1;  {    external blank enable }
  156.   BPLCON3_EXTBLKZD      =  2;  {    external blank ored into trnsprncy }
  157.   BPLCON3_ZDCLKEN       =  4;  {    zd pin outputs a 14mhz clock}
  158.   BPLCON3_BRDNTRAN      =  16;  {    border is opaque }
  159.   BPLCON3_BRDNBLNK      =  32;  {    border is opaque }
  160.  
  161.  
  162.  
  163.